home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ Startmenu Clear MRUs.xpl < prev    next >
Text File  |  1999-06-12  |  2KB  |  75 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Start menu\Clear"
  5. "NAME"="Clear Items"
  6. "VERSION"="1.41"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Clear "Run..." commands"
  9. "TEXT 2"="Clear found files ("Find" - "Files")"
  10. "TEXT 3"="Clear found computers ("Find" - "Computer")"
  11. "TEXT 4"="Clear "Recent Documents""
  12. "DESCRIPTION 1"="Click an item to be cleared."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16.  
  17.  
  18. 'Declaration of some constants
  19. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\"
  20. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU\"
  21. sP3="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FindComputerMRU\"
  22. sP4="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs\"
  23. 'HKCU,"Software\Microsoft\Windows\CurrentVersion\Explorer\Prnportsmru" 'TODO... Some day... After Y2k
  24.  
  25.  
  26. 'Called when the Plugin is started
  27. Sub Plugin_Initialize
  28. End Sub
  29.  
  30. 'Called when the Plugin should validate the Data the user has entered
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34. 'Called when the Plugin should apply the changes
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  Select Case ElementIndex
  37.  Case 1 'run
  38.  
  39.   i=RegEnumValues(sp1)
  40.   for l=1 to i
  41.    Call RegDeleteValue(sp1 & RegEnumElement(l))
  42.   Next
  43.  
  44.  Case 2'files
  45.  
  46.   i=RegEnumValues(sp2)
  47.   for l=1 to i
  48.    Call RegDeleteValue(sp2 & RegEnumElement(l))
  49.   Next
  50.  
  51.  Case 3'computers
  52.  
  53.   i=RegEnumValues(sp3)
  54.   for l=1 to i
  55.    Call RegDeleteValue(sp3 & RegEnumElement(l))
  56.   Next
  57.  
  58.  Case 4'Docs
  59.  
  60.   i=RegEnumValues(sp4)
  61.   for l=1 to i
  62.    Call RegDeleteValue(sp4 & RegEnumElement(l))
  63.   Next
  64.  
  65.  end Select
  66.  
  67.  
  68.  Call MsgInformation("Cleared, please restart your PC so the changes can take effect.") 
  69.  Call Restart
  70. End Sub
  71.  
  72. 'Called when the Plugin is about to be removed from memory
  73. Sub Plugin_Terminate
  74. End Sub
  75.